5 POKE55,.:POKE56,56:CLR
10 DV=PEEK(186):IFDV<8THENDV=8
15 POKE53280,0:POKE53281,0:PRINT"[147]"
16 POKE53371,0
25 POKE53272,31
28 AD=49152
29 SYSAD:SYSAD+12
30 PRINT"[147]":SYSAD+9,0
80 RD=180/(null)
85 C=4*RD^2
90 L=0:W=0:Q=0
95 K=0.003667
100 N=1
105 X=0
110 SYSAD+9,1
115 BX$="[129][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164]"
120 PRINT"[147][129][220][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][221]"
125 PRINTBX$""TAB(38)BX$
130 PRINT"[129][255][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][161]"
135 PRINT""TAB(11)"[150]-[159][211][200][207][207][212][201][206][199] [211][212][193][210][211][150]-"
140 PRINT:PRINTTAB(4)"[158]F/[210]ATIO FOR [204]ENS: ";:L9%=4:GOSUB355:FR=Q9
142 SYSAD+9,2
145 PRINTTAB(4)"[158][198]OCAL LENGTH (MM): ";:L9%=4:GOSUB355:FL=Q9
147 SYSAD+9,2
150 AP=FL/FR
155 PRINT:PRINTTAB(4)"[158][198]ILM/[201]MAGE FORMAT"
160 PRINTTAB(5)"(1)[153] 35 MM"
165 PRINTTAB(5)"(2)[153] 120 SQUARE"
170 PRINTTAB(5)"(3)[153] 4 X 5 INCH"
175 PRINTTAB(5)"(4)[153] 8 X 10 INCH"
180 PRINTTAB(5)"(5)[153] [211]CHMIDT [195]AMERA"
185 PRINTTAB(5)"(6)[153] [198]ISHEYE (180) DEGREES"
188 POKE198,0
190 GETQ$:IFQ$<"1"ORQ$>"6"THEN190
192 SYSAD+9,2
200 ONVAL(Q$)GOTO225,230,235,240,245,255
225 L=36:W=24:GOTO275
230 L=55:W=55:GOTO275
235 L=119:W=94:GOTO275
240 L=240:W=190:GOTO275
245 PRINT:PRINTTAB(5)"[158][211]KY AREA (SQ/[219]): ";:L9%=5:GOSUB355:S=Q9
247 SYSAD+9,2
250 GOTO300
255 S=20626:GOTO285
265 REM COMPUTE SKY AREA COVERED
270 REM BY RECTANGULAR FILM FRAME
275 S=C*ATN(0.5*L/FL)*ATN(0.5*W/FL)
280 IFS>50THENS=INT(S+0.5)
285 PRINTTAB(1)"[156][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]":SYSAD+9,3
290 PRINT:PRINTTAB(2)"[159][211]KY AREA COVERED (SQ/[219]):";S
300 REM NOW, EVALUATE MCKINLEY FORMULA
305 E=K*AP^2*S/((1+X)*FL^N)
310 PRINT:PRINTTAB(2)"[159][208]HOTO. [197]FFICIENCY:";E:GOSUB505
315 GOSUB3000
320 GOTO110
355 Q9$="":POKE198,.
360 GETA$
365 POKE646,RND(1)*15+1:PRINT"*[157]";:IFA$=""THEN360
370 IFA$=CHR$(13)THENPRINT" ":Q9=VAL(Q9$):RETURN
375 IF(A$=CHR$(20)ANDLEN(Q9$))THENQ9$=LEFT$(Q9$,LEN(Q9$)-1):GOTO397
380 IFLEN(Q9$)>=L9%THENSYSAD+9,2:GOTO360
385 IF(A$>="0"ANDA$<="9")ORA$="."THEN390
387 GOTO360
390 Q9$=Q9$+A$
395 PRINT""A$;:GOTO360
397 PRINT" [157][157] [157]";:GOTO360
505 IFE<10THENPRINTTAB(3)"[150][206]OT THE BEST EQUIPMENT TO USE!":RETURN
510 IFE>10ANDE<20THENPRINTTAB(2)"[150][210]EDUCE FOCAL LENGTH AND/OR F/STOP!":RETURN
515 IFE>20ANDE<55THENPRINTTAB(3)"[150][206]OT [212]OO [194]AD! [217]OU CAN DO BETTER!":RETURN
517 IFE>55ANDE<300THENPRINTTAB(3)"[150][207]PTIMAL EQUIPMENT FOR THE JOB!":RETURN
520 IFE>300THENPRINTTAB(3)"[150][197]XCEPTIONAL EQUIPMENT. [195]LICK AWAY!":RETURN
3000 POKE214,19:PRINT:PRINTTAB(8)"[159](1[159]) [212]RY ANOTHER ONE
3010 [153][163]8)"OPEN(2OPEN) (null)O (null)(null)RIGHT$(null)VAL(null)(null)VAL (null)ENU
3020 POKE198,0
3030 GETA$:IFA$<"1"ORA$>"2"THEN3030
3040 IFA$="1"THENRETURN
3050 SYSAD+15
3060 PRINT"[147]LOAD"CHR$(34)"B.UNIVERSE"CHR$(34)","DV
3070 PRINT"RUN28"
3080 POKE631,13:POKE632,13:POKE198,2:END
10000 D=PEEK(186):N$="SHOOTING STARS":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END